home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / WindToRear < prev   
Encoding:
Text File  |  1988-06-20  |  301 b   |  13 lines  |  [TEXT/MPS ]
  1. ###        WindToRear — move front window to back
  2. ###            W. Powell        1988
  3.  
  4. Set Exit 0
  5. Set WindCnt `Windows | Count -l`
  6. Set WindCnt `Evaluate {WindCnt} - 1`
  7. # Loop through the windows in order
  8. For CurWind In `Windows`
  9.     Set WindCnt `Evaluate {WindCnt} - 1 `
  10.     Open "{CurWind}"
  11.     Break If {WindCnt} <= 0
  12. End
  13. Exit 0